;; host/random.scm - (c) rohan drape, 2001-2005

(module 
 random mzscheme

;; Must provide base-random-32bit to return a random 32bit integer.

(define (base-random-32bit)
  (random 2147483647))

;; Must provide 'base-random-uniform' to return a uniformly
;; distributed inexact real random number in [0,1).

(define (base-random-uniform)
  (random))

;; Must provide 'base-random-seed' to seed the above random number
;; generator.

(define (base-random-seed seed)
  (random-seed seed))

(provide (all-defined)))
